﻿Imports Entidad
Imports Datos

Public Class AlertaDocumentoClienteNegocio

    Dim dao As New AlertaDocumentoClienteDatos

    Sub ingresarAlerta(ByVal pedido As String, ByVal usuario As String, ByVal mensaje As String, tipoDOC As String, cia As String, suc As String)
        dao.ingresarAlerta(pedido, usuario, mensaje, tipoDOC, cia, suc)
    End Sub

    Function leerAlertaXAsignadorAnulados(ByVal codAsig As String, tipoDOC As String) As DataSet
        Return dao.leerAlertaXAsignadorAnulados(codAsig, tipoDOC)
    End Function

    Sub actualizarAlerta(ByVal aler As Alerta)
        dao.actualizarAlerta(aler)
    End Sub

End Class
